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On January 1, the London Chapter lost a friend, an avid 


volunteer and a member of its current Executive Council. Fred's 


dedicated enthusiasm for archaeological research both in the field 
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and in the lab provided much inspiration. 


His organizational 


abilities and ready wit will be greatly missed by al! of us. 
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EXECUTIVE REPORT 


The excitement of a new year with a new executive was crushed by the loss of Fred 
Turner, who was to be our Chapter secretary. Funeral! services held on Saturday, January 4 
were attended by a number of Chapter members. Despite a low bank balance, the executive 
has proposed a heart fund donation from the Chapter in Fred's memory. 


Dave Smith attended the January 2 executive meeting as the Chapter's M.I.A. liaison 
and has guaranteed that the facilities will be open for our monthly meetings. 


In other business, final settlement of the 1985 annual symposium account was discussed. 
Rob Pihl will have to be consulted concerning the dispersal of speaker honourariums. George 
will close out the Oneida summer project account and pay M.P.P. the balance due. 


Future prospects for the Oneida program were considered in discussions with Bob Mayer. 
A federal Job Development grant has been applied for by the Oneida Council of the Thames, 
whereby two band members would be employed over the winter, training as archaeological 
technicians in cooperation with our Chapter and the local Ministry office. The Chapter must 
now decide whether to continue the 1985 survey project or begin excavations on one of the 
Oneida homesteads identified last year. Members are encouraged to communicate their 
thoughts to the executive over the next few weeks, as the SEED program application deadline 
is only two months away. 


Other agenda items included planning for a Chapter summer bus tour, perhaps east to 
the Kingston-Ottawa area, publication of a "best of KEWA" volume (its our 10th anniversary!) 
and a slate of speakers for monthly meetings. Neal and Linda will be arranging the March 
through May presentations, while our February 13 meeting will be Members Nite. This month's 
speakers are: 


Pau! Antone SUMACS, SANDFLEAS AND SNAKES: THE 1985 ONEIDA SURVEY 
and 
Ian Kenyon "SPIRIT ON THE RIVER...GHOST UPON THE SHORE": 


THE SIX NATIONS ON THE GRAND RIVER 


Finally, "thanks Rob!" from the Chapter membership and executive for your two terms 
as our president.... 


Last week our Chapter lost not only an executive member, but also an avid participant 
in all activities. Bob Mayer's words on the cover of this issue convey the feelings of all 
those who knew and worked with Fred in his favourite avocation. Our condolences are 
extended to his wife Josephine, his daughter Tracy and his brother Frank. Contributions to 
honour Fred's memory can be sent to: 


Heart and Stroke Foundation of Ontario 
London and Area Chapter 
371 King Street 
London, Ontario 
N6B 184 


SOCIAL REPORT 


While 1986 has begun with sadness, a most successful year of Chapter activities was 
concluded with our December 14 Christmas Party. The turnout was excellent and the fare 
was even better! Look out Sebastians.....All who attended agreed that this was our best party 
ever and that our membership includes some gourmet cooks. The Nixons and Calverts, Chapter 
stalwarts, were missed. Although they could not attend due to ill health, the Calverts wished 
all a Merry Christmas by delivering a bottle of cheer to the party! Finally, a big THANK 
YOU to the Kerons for their traditional fine hospitality. 


Editor's Corner 


It has been almost ten years since our Chapter was established by a small group of 
fanatics! For old-timers like yours truly, that's pretty startling news...it's enough to make 
one philosophical...ah, youth!...Thanks to the very special people who have served on our 
executive, it has been a decade of tremendous accomplishments - two excellent annual 
symposiums hosted; numerous successful bus tours to Ohio, New York, Michigan and Northern 
Ontario; the Oneida Survey and other Chapter field projects, and the good times of summer 
picnics and Christmas parties...... 


For the benefit of newer members and to salute our dedicted executive of the past, the 
following is a listing of Chapter executive members from 1977 to the present: 


President Vice-President Secretary/Treasurer 
WONT C. Nixon N. McWilliam G. Connoy 
1978 C. Nixon N. McWilliam G. Connoy 
USGS N. McWilliam R. Fecteau G. Connoy 

President Vice-President Secretary Treasurer 
1980 J. Keron R. Pihl C. Nixon G. Connoy 
1981 J. Keron R. Pihl C. Nixon G. Connoy 
1982 J. Keron P. Lennox T. Rowcliffe G. Connoy 
1983 P. Lennox R. Pihl T. Rowcliffe G. Connoy 
1984 R. Pihl D. Smith’ L. Gibbs G. Connoy 
1985 R. Pihl D. Smith L. Gibbs G. Connoy 
1986 N. Ferris L. Gibbs F. Turner G. Connoy 


George, what can we say! 


Members will find two "extras" in this month's mailing; one, a Museum of Indian 
Archaeology research report flyer, and the other, a dues envelope. While we encourage a 
response to the former, we wish to emphasize that Chapter membership fees are now due. 


The new fee structure, as ratified at our December meeting, is: 


Individual $12.00 
Family $14.00 
Institutional $18.00 


The following article is presented courtesy of "micro flyboy" Jim Keron, a ten year 
Chapter member. Jim, does that make you "tenured"? 
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CSPMAP: A SURFACE DISTRIBUTION PLOT PROGRAM 
OR 
THE LAZY ARCHAEOLOGIST: WHY DRAW A MAP 
WHEN A MACHINE WILL DO IT FOR YOU? 


James Keron 


One of the many tedious, time consuming tasks facing all archaeologists doing survey 
work is the production of maps showing the distribution of surface finds over a particular site. 
Never being overly ambitious or gifted in the area of graphic art and having several maps to 
produce*, I set out to create a program to draw these maps using a standard dot matrix 
printer attached to a micro computer. While at this point it might sound impressive to say 
that the original design intention was to create a program which would function on the basic 
equipment generally available to low budget undertakings, this would be a reversal of the real 
process that created the program. All that was available to me for programming was a 
minimal micro computer system! While a map could be drawn using computer plotters with 
high quality results, the cost of these devices was out of the question. 


The program evolved over a considerable time, being delayed by a switch in computer 
hardware and software and numerous other procrastinatorial hazards associated with micro 
computers, such as Zork and Flight Simulator. It started out to be a no frills program that 
required internal modification for each succeeding map. Over the course of time, several 
options were added to it to save effort and make it easier to use. It was eventually 
necessary to stop further enhancements, since working on the program got to be an end in 
itself and no maps or reports were getting done. There are still several areas which could be 
improved, but these will have to wait. : 


The program is written in BASIC and runs on a IBM PC with 256 K and an Epson RX80 
printer. Other printers may or may not work depending on whether or not the sequence of 
control characters sent to the printer is identical to the Epson. At this time it has been 
successfully run with an Epson FX100. If the map is to be displayed on the screen, the 
Colour Graphics Adapter card must be installed in the PC, although a colour monitor is not 
required. 

In order to run the program it is necessary to set up the site catalogue on the 
computer. (This has other advantages, as it can also be used to print the artifact catalogue 
required for Ministry license reports.) The catalogue is stored as a series of rows in a table. 
Each row contains all of the information about a particular entry. The program calculates the 
rectangular coordinates of each entry. Results are then displayed as a series of dots on a 
map showing the horizontal distribution of the material over the site. 

Options in the program include: 

1. The ability to display the map on either a printer or the monitor or both. 


2. The production of a catalogue list with the calculated rectangular coordinates of each 
artifact. 


3. The input can be in either transit format (bearing and distance from a fixed datum) or in 


compass format (two bearings from two dixed datums). See record formats below. 


* unlike the editor of this journal, I failed to marry an artist who could do it for me! 
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4. It will produce a map of the entire site automatically scaled and adjusted to fit the size 
of the paper on the printer (see Figure 1), or you can specify a particular portion of the 
site by giving it the coordinates of the southwest corner and the size of the square to be 
printed (see Figure 2). 


5. It will display the position of all artifacts on the site or individually specified artifact 
classes. Figure 2 displays all of the chipping detritus (CDE) in the largest midden seen in 
Figure 1. It is thus possible to very quickly examine the distribution by artifact class of 
the entire site, looking for internal patterning, especially if only the screen display is 
used. 


6. As quite often several artifacts are recorded at the same station, an option was added to 
distribute these around the station randomly within a square of specified size so that each 
artifact recovered results in a dot on the map. 


As can be seen from the two figures, the quality of the map is probably not suitable for 
publication in a journal, but does quite well for standard license reports required by the 
Ministry or other unpublished manuscripts.. Running in interpretive form, as available on most 
machines, the program is fairly slow. Figure 1 took 25 minutes. One would be well advised 
to start the map program and go for supper. However, once it is compiled using a BASIC 
compiler, a map of several hundred artifacts can be created on the screen in a few seconds 
and on the printer in three minutes. Several enhancements will undoubtedly be made, not the 
least of which is the inclusion of codes to print letters beside the Datum points. These will 
be included in a distributed version. The program will be a welcome addition to the author's 
reporting process. Now, if it were possible to write a program to wash and catalogue the 
finds!!! 


Operation 


The first step in the operation of the program is to create three files, the Site 
Inforamtion file, the Datum Location file and the Catalogue file. These three files are in 
what BASIC calls Random Format. 


The first of these files consists of one record that contains information about the site 
such as the name, the Borden Number, and the designation of the primary datum. The second 
file contains several records, each of which describe a particular datum, giving its identifier 
and location relative to the primary datum. The third file is the site catalogue and contains 
one row for each entry from the site, including the catalogue number, artifact type and 
location relative to the datum points. This third file can be in either of two formats. 


The first format would be used when the survey was done using a compass and the 
artifact locations were recorded as bearings from two fixed points. This format also allows 
for the measurement of an artifact location as a bearing and distance from one datum. In this 
case, the second datum ID is the same as the first, indicating that the following measurement 
is a distance from that datum. The second format is used when the survey was done with a 
transit. This format allows for the input of transit data, including degrees, minutes, and 
seconds. The distance recorded is the actual! distance of the artifact, not the readings from 
the stadia rod. These latter numbers could be used instead by making a simple alteration to 
the program. 


The aforementioned files can be prepared in a number of ways. The simplest way is to 


use one of the standard database packages such as Ashton-Tate's DBASE 2 or 3. Failing this, 
a simple BASIC program could be written to enter the data at the screen and create the files. 
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Thomas Fowerline Site AfHh-S Figure 1 
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Once these files have been created, it only remains to execute the program. This can 


be done either by entering the BASIC interpreter, loading the program, and hitting RUN or by 
executing the compiled version. The only difference will be the speed of execution. When 
the program is run, several prompts appear on the screen. The options are included where 
applicable and the default option is enclosed with <n>. This can be taken simply by hitting 
ENTER. The options are as follows: 


1B 


3 


Display map on (s)creen, (p)rinter or <b>oth? 
Reply "s" for screen only, "p" for printer only. Both is the default. 
Print all coordinates (y) or <n>? 


If a detailed list is required showing the coordinates calculated for each catalogue entry, 
then reply "y", otherwise hit ENTER for the default and the list will not be produced. In 
the current version of this program, this default option can not be selected if a portion of 
the site is to be printed as specified in the next option. A request to do so will be 
ignored. 


Display whole site <y> or specified portion (n)? 


The entire site is the default, and will be created by simply hitting ENTER or "y". If a 
specified portion of the site is required, reply "n". The following three prompts will 
appear to allow you to specify a point on the grid and the size of the square to be 
printed. The grid reference point is at the southwest corner of the square. 
3a. Enter east coordinate? 
Specify the east or x-axis coordinate. 
3b. Enter north coordinate? 
Specify the north or y-axis coordinate. 
3c. Enter size of square? 


Enter multiple find scatter factor? 

If multiple artifacts have been recorded at the same station, then a non zero number 
should be specified here. A zero indicates that multiple finds at the same station will be 
ignored when the map is printed. An integer value entered here indicates that multiple 
artifacts are to be scattered about the recorded station through dumping them into 
adjacent "squares" by adding or subtracting a random number from both coordinates that is 
between O and specified number, inclusive. If this "square" is already full, then another is 
selected. These "squares" are about a millimeter in size on the printed map. It is best to 
experiment with the number until the best distribution is found. The number should be 
large enough that in areas of high concentration the scattered finds from adjacent 
stations just touch each other. Both Figures 1 and 2 were produced in this fashion. 
Without this option, the obvious concentration near the centre of Figure 1, which is 
expanded in Figure 2, would be reduced to about 10 stations. 


Enter artifact class or all? 

If all artifacts are to be plotted, then enter "all"; otherwise, enter the three digit code 
for the required artifact class. The codes used here are those developed by the Museum 
of Indian Archaeology, but any three digit code system would work just as well. 


If you are processing by artifact class, the prompt to enter the class will reappear after 


the first map has been produced. If another class is to be displayed, enter the class here; 
otherwise, reply "q" to quit the program. 
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Thomas Powerline Site AFHH-S Figure 2 


. 


ah 
| fn ae . 
| ae. : . 
| . rs « ae 5 . - 
| oe oe ae . ; ae 
s& oe < 
ae = pode e 
} 
| C1 
' . 2 
i 
i % 
| | 
i 
{ 7. 
i 
i 
" 
i 2 + 
A 
| 
( 430 E, 440 N), 270 Metre Square 
Artefact Class - CDE 
Scale +- 10 metres is ——— tT} 


The Program 


1 CLEAR 

2 DEFINT T: DIM T(127,128): DIM DP$(20): DIM DX(20): DIM DY(20) 
3 DIM PA(20): DIM PB(20): DIM PC(20): DIM PD(20): DIM PE{20) 

5 GOSUB 9900 


10 
20 
30 
35 
40 
45 
50 
60 
80 
90 
100 
300 
400 
410 
412 
420 
430 
435 
440 
xy 
445 
450 
500 
900 
910 
920 
930 
940 
950 
955 
960 
990 


1000 GX=LOF(1)/GR: GY=GY+1: 


PI=3.141593 
GOSUB 9000 

IF 03-1 THEN GOTO 60 

FOR X=1 TO DM: IP DX(X)<1 OR DX(X)>127 GOTO 50 

IF DY(X)<1 OR DY(Y)>128 GOTO 50 
T(DX(X) ,DY(X) )=999 

NEXT X 

IF 01-0 THEN GOTO 300 

FOR X=1 TO DM: LPRINT “Datum”; DPS(1); "("; DX(X); "."; D¥(X); ")" 
NEXT X 

LPRINT 

IF 05=1 AND 03-0 THEN GOSUB 7500 

GOSUB 1000: IF EO=1 THEN GOTO 900 

IF 07-0 OR 08-0 THEN GOTO 420 

IF GBS<>ATS THEN GOTO 400 

GOSUB 1100 

IP P1$=P2$ THEN GOSUB 2300: GOTO 440 

GosuB 2000 

IF 01-1 AND 02-0 THEN LPRINT GAS; * “; GBS; GC$; GES: GF$; GHS: GK$; XX; 


IF O1=1 AND O2=1 THEN LPRINT GAS; “ "; GBS; GC$; GES; Al; A2; XX: XY 
GOSUB 3000 

GOTO 400 

IF Ol=1 THEN LPRINT “ x ranges from 
IF O1=1 THEN LPRINT “ y ranges from 
IP 06-1 AND 03-0 THEN GOSUB 5000 

IF 03-1 THEN GOSUB 6000 

IF 07-1 THEN INPUT “enter artefact class"; ATS 
IF ATS="q" THEN GOTO 990 

OB=1: CLOSE #1 

IF 07=1 OR O4-1 THEN GOSUB 9400: 04=0: GOTO 30 
END 


IF GY<GX THEN GET #1 ELSE GOTO 1090 


1010 IF MIDS(GE$.1,1)=CHRS(O} THEN GOTO 1090 
1015 IP GAS = "9999" THEN GOTO 1090 


1020 IF GES=" 


“ THEN GOTO 1000 


1030 IF O02=1 THEN GOTO 1070 

1040 P1S-GES: Al=VAL(GF$): P2S=GH$: A2=VAL(GKS$): GC=VAL(GCS) 

1050 IF Ai-360 THEN Al=0 

1060 IF A2=360 THEN A2=0 

1065 RETURN 

1070 P1S=GE$: P2$-P1$: Al=VAL(GF$): X=VAL(GIS): Y=VAL(GJ$): A2=VAL(GKS) 
1080 X+X+¥/60: Al*A1+X/60; RETURN 

1090 EO0-1: RETURN 


1100 


1200 FOR X+1 TO DM: IP P$=DP3(X) THEN PX*DX(X): PY=DY(X): RETURN 
1210 NEXT X s 
1230 PRINT “undefined datum point - °;P$:END 


2000 IF (A1=0 OR Al=180) AND (A2=90 OR A2=270) THEN XX=RX: XY*QY: RETURN 


201 


0 IF (Al-90 OR Al=270) AND (A2=0 OR A2=180) THEN XX-QX: XY=RY: RETURN 


2020 IF Al-0 OR A1-90 OR Al#180 OR Al*270 THEX GOTO 2060 
2030 AZ-QX QY*TAN((A1)*PI/180) 


204) 


© LA~O-QY/(QX-AZ) 


2050 LR-0-QY*AZ/(QX-AZ) 


2061 
207 
208: 
2091 
210 
211 
212 
213 
214 
215) 
230) 
231 
232 
2331 
300: 
301 
302 
303) 


0 IF A2-90 OR A2~270 THEN XX=(LB-RY)/LA: XY=RY: GOTO 2150 
© IF A2-0 OR A2=180 THEN XX=RX:XY*LB-LA*®XX: GOTO 2150 

0 BZ~RX-(RY*TAN( (A2)*P1/180) ) 

0 MA+O-RY/(RX-BZ) 

0 MB-O-RY®NZ/(RX-DZ) 

9 IF Alr90 OR Al=270 THEN XX=(MB-QY)/MA: XY=QY: GOTO 2150 
‘0 IF A1-0 OR Al~180 THEN XX*QX: XY*MB-MA®XX: GOTO 2150 

0 XX- (MB-LB)/(MA-LA) ‘ 

0 XY-LB-LA®XX 

0) RETU 
O X=A1*P1/180 

0 XX-QX+A2*SIN(X)*SC 

0 XY-QY-A2*COS(X)*SC 

0 RETURN 

0 IF XX<LX THEN LX=XX 
0 IF XX>MX THEN MX=XX 
0 IF XYCLY THEN LY=Xv 
0 IF XYMY THEN MY*XY 


3035 IF 03-1 THEN RETURN 

3040 IF XX<1 OR XX>127 OR XY<1 OR XY>128 THEN GOTO 3060 
3050 TX-XX: TY-XY: TI(TX.TY)=T(TX.TY)+G6C 

3955 IF SP<>0 AND T(TX.TY)>2 THEN GOSUB 4000 

3060 IF O5+1 THEN PSET(75+1.32°TX,165-TY) 

3070 RETURN 

4000 IF T(TX.TY)> 998 THEN GOTO 4110 

4010 IF T(TX.TY)>(2*SF+1)*(2°SF+1)*2 THEN PRINT “error 4010 
4020 FOR Z=1 TO T(TX.TY)-2 

4930 IF 1*2 THEN RANDOMIZE TIMER 

4040 R-TX-SF+INT(RND®(2°SF+1)) 

4050 S=TY-SF+INT(RND*(2*SF+1)) 

4060 IF R<1 OR R>127 OR S<1 OR S>128 THEN GOTO 4090 
4070 IF T(R.S)>1 THEN GOTO 4030 

4075 T(R.S)°T(R.S)+1 

4080 IF 05-1 THEN PSET(75+1.32°R,165-S) 

4090 T(TX.TY)-T(TX,TY)-1 

4100 NEXT Z 

4130 RETURN 

5000 GOSUB 5100 

5010 WIDTH "LPT1:".255 

5015 LPRINT CHRS$(27)"0" 

5020 PM-O: PN-128: GOSUB 5200 

5030 GOSUB 5300 

5040 PM~128: PN=O: GOSUB 5200 


5050 
5060 
5100 


:LPRINT CHRS(14)CHRS(15)S5AS; 


5110 LPRINT “ "; 
5120 LPRINT SBS 


P$=P1$: GOSUB 1200: QX=PX: QY=PY: P$=P2$:GOSUB 1200: RX=PX:RY=PY: RETURN 


5130 
5140 
5200 
5300 
5310 
5320 
5390 
5940 
5345, 
5350 
5380 
8370 
8300 
5aR5 
5390 
5400 
5600 
5605 
510 
5620 
5630 
5640 
5650 
8600 
5700 
8705 
5710 
§720 
8730 
5740 
5750 
5760 
5770 
5800 
5810. 
5820 
5830 
5900 
5910 
5915 
5920 
5930 
5935 
5938 
8940 
8942 
5045 
S9A0 
5085 
5990 
S902 
59946 
5996 


6000 
601 
6020 
6030 
6040 
6050 
6060. 
6070 
6500 
6510 
6520 
7000 
7040 
7050 
7055 
7060 
7500 
7510 
7520 
7530 
7540 
7550 
7600 
7610 
9000 
9010 
9020 
9030 
9040 
9060 
9070 
9075 
9080 
8090 
9100 
9110 
9120 
9130 
9140 
9150 
9151 
9180 
9165 
8170 
9180 
9190 
9200 
9250 
9260 
9270 
9280 
9285 
9290 


LPRINT CHRS$(27)CHRS(64); 

RETURN 

GOSUB 5800: FOR X=1 TO 480: GOSUB 5820: NEXT X: LPRINT: RETURN 
TX-1: TY-128 

GOSUN 5800: PM=255: PN=128: GOSUB 5820: PN-0: PS=0 


P1-0: P2=0: P3-0 

IF_ T(TX.TY)<>0 OR T(TX,TY-1)<>0 THEN GOSUB 5700 

PM=P1: GOSUB 5820: PM=P2: GOSUB 5820: PM=P3: GOSUB 6820 

IP DP=1 THEN GOSUB 5600: DP=0 : 

PS-PS+1: IF PS=4 THEN PS=0: GOTO 5370 

PM-0: GNSUB 5820 

TX-TX+1: IF TX<128 THEN GOTO 5320 

TX-1: PS-0: PM=0: GOSUR 5820 

PM=255: PN=128: GOSUD 5820: LPRINT 

TY+TY-2: IF TY>0 THEN GOTO 5310 

RETURN 

FOR X=1 TO 3: PM=O: GOSURB 5820: NEXT X 

FOR X~1 TO DM: TA=DX(X): TB=DY(X) 

IF TA>TX AND TR=SY THEN P1=PA(X): P2=PB(X): P3=PC(X): P4=PD(X): PS=PE(X) 
NEXT X 

PM-P1; GOSUB 5820: PM=P2: GOSUB 5820: PM*P3: GOSUB 5820 

PM=P4; GOSUB 5820: PM=P5: GOSUB 5820 

FOR X*1 TO 4: PM-0: GOSUB 5820: NEXT X 

TX*TX*3: RETURN 

IF T(TX.TY)=1 THEN P1=192: P2-192 

IP T(TX.TY)>1 THEN P1=192: P2=240: P3=48 

IP T(TX.TY-1)*1 THEN Pl~P1+12: P2=-P2+12 

IP T(TX.TY-1)>1 THEN Pl=Pi+12: P2*P2+15: P3=P3+3 

IP T(TX.TY)>998 THEN Pi=240: P2=240: P3-240: SY-TY: DP=1 

IF T(TX.TY-1)>998 THEN Pi=15: P2=15: P3=15: SY=TY-1: DP#1 

IF T(TX,TY)<999 THEN T(TX.TY)=0 

IP T(TX,TY-1)<999 THEN T(TX.TY-1)=0 

RETURN 

LPRINT CHRS$(27)"~"CHRS(O)CHRS(224)CHRS(1); 

RETURN 

LPRINT CHRS(PM)CHRS(PN); 
RETURN 

LPRINT CHRS$(27)CHRS(64) 
LPRINT CHRS(14)CHRS(15) "("; OX; 
LPRINT CHRS(27)CHRS(64) 
IF O7=1 THEN LPRINT CHR$(14)CHRS$(15) “Artefact Class - ": ATS 
IP SC<.5 THEN S1=50: GOSUB 5980: RETURN 

IP SC<2 THEN S1=20: GOSUB 5980: RETURN 

IP SC<4 THEN S1=10: GOSUB 5980: RETURN 

IF SC<8 THEN S1-5: GOSUB 5980: RETURN 

Sl*1: GOSUB 5980: RETURN 

PRINT “fix the scale line at 5940": RETURN 

LPRINT CHRS(27)CHR$(64) 

LPRINT CHRS(14)CHRS(15) “Scale -"; S1; “metres is "; 
TS-S1°SC*3.76 

TS-S1°SC*3.76 

LPRINT CHRS(27)"""CHRS$(O)CHRS(TS)CHRS(0); 

FOR X=1 TO TS: PM=16: PN=0: GOSUB 5820: NEXT X: RETURN 


"E."; OY; "N), "; OS; “Metre Square" 


Q=MX-LX: ReMY-LY: SX=120/Q: SY=120/R 

-IF SX<SY THEN SC-SX ELSE SC-SY 

01-0: 03-0 

FOR X=1 TO DM: 

PX-DX(X): PY=DY(X): GOSUB 6500: DX(X)=PX: DY(X)=PY: NEXT X 
OX=LX: OY-LY: OS-INT(328/SC) 

IP SX-SC THEN OY~INT(OY-.5*(128-R*SC)): OX=INT(OX-4): RETURN 
OX=INT(OX- (127-Q*SC)): OY~INT(OY-4): RETURN 
PX~(PX-LX)*SC: PY=(PY-LY)*SC 

IF SX-SC THEN PY=PY+.5*(128-R*SC): PX=PX+4: RETURN 
PX=PX+.5*(127-Q*SC): PY-PY+4: RETURN 

GOSUR 7500 

FOR X-1 TO 127: FOR Y-1 TO 128 

IF T(X,¥)<>O THEN PSET(75+(1.32*X).165-Y) 

NEXT Y: NEXT X 

RETURN 

SCREEN 1: CLS: PSET(75.36): DRAW “r170 d130 1170 u130” 
FOR N=1 TO DM 

IP DX(N)<1 OR DX(N)>127 THEN GOTO 7550 

IF DY(N)<1 OR DY(N)>128 THEN GOTO 7550 

X=DX(N): Y=DY(N): GOSUB 7600 

NEXT N: RETURN 

PSET(75+1.32°X.165-Y) 

DRAW "r2 14 r2 u2 d4": RETURN 

OPEN GX$ AS #1 LEN+50: GET #1 

FIELD #1.25 AS AS.8 AS BS.1 AS SC$.4 AS SX$.4 AS SYS 
CLOSE #1: IF SC$-"c" THEN 02-0 ELSE 02-1 

SAS-AS: SRS-RS: DX(1)=VAL(SX$): DY(1)=VAL{SYS$) 
GWS-GYS$: GOSUB 9490: DM-1: SC-1 

GOSUB 1000: IF EO-1 THEN GOTO 9110 

IF DM-1 THEN DP$(1)=MIDS(GB$,1.2): GOTO 9100 

GOSUB 1100 

IF P1$-P2S THEN GOSUR 2300 ELSE GOSI'R 2000 
DPS(DM)-MIDS(GNS.1,2): DX(DM)=XX: DY(DM)=XY 

DM-DM+1: GOTO 9060 

DM~DM-1: CLOSE #1 

GWS-GZ$: GOSUB 9400 

FOR X=1 TO 20: READ PA(X), PB(X), PC(X), PD(X), PE(X): NEXT X 
IF 03-1 THEN GOTO 9160 

SC-127/08: FOR X=1 TO DM 

DX(X)-(DX{(X)-OX)*SC+1: DY(X)=(DY(X)-OY)*SC+1: NEXT X 
LX-9999: LY-9999; MX=-9999: MY=-9999 

FOR X=1 TO DM 

IF DX(X)<LX THEN LX=DX(X) 

IF DX(X)>MX THEN MX-DX(X) 

IF DY(X)<LY THEN LY*DY(X) 

IF DY(X)>MY THEN MY=DY(X) 

NEXT X * 

04*03: IP 03-0 THEN 01-0 

IF 03-0 THEN 08-1 

INPUT “Enter Artefnct Class or all”; ATS 

IF ATS = “all” THEN 07*0 ELSE 071 

RETURN 
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Record Formats 


9300 DATA 30,304.1 
9301 DATA 0,0,0, 
9302 DATA 0.0. 
9103 DATA 0.0, 
9104 DATA 0.0, 
9305 DATA 0.0. 
9206 DATA 0.0, 
9307 DATA 1,0 : 


+146,108,0,0,0.0,0 


Version 1.0 

8400 IF 02-1 THEN GR-33 ELSE GR=26 

9440 OPEN GWS AS #1 LEN-GR: GY-0 

9450 IF 02-1 THEN GOSUB 9490 ELSE GOSUB 9480 

9470 E0-0: RETURN 

9480 FIELD #1.4 AS GAS.3 AS GNS$.3 AS GC$,4 AS GD$.2 AS GES,3 AS GF$.2 AS GHS,3 
AS GKS: RETURN 

9490 FIELD #1,4 AS GA$.3 AS GRS$,3 AS GC$,4 AS GD$,2 AS GE$,3 AS GFS$,2 AS GIS,2 
AS GJ$.7 AS GK$ 

9495 RETURN 

9900 GZ$-"b:catalog.sdf” 
9901 GX$-"b:site.sdf” ‘ site description file 

9902 GY$-"b:datum.sdf” * datum file 

9910 O5=1: O6=1: INPUT “Display map on (s)creen (p)rinter or <b>oth": AS 
9915 IF A$ = "s" THEN 06-0 

9920 IF AS = "p” THEN 05-0 

9930 01=0: INPUT “Print all the coordinates (y) or <n>"; AS 

9935 IF AS = “y” THEN Ol=1 

9940 03-1: INPUT “Display whole site <y> or specified portion (n)"; A$ 
9945 IF A$="n" THEN 03*0 ELSE GOTO 9980 

9950 INPUT “Enter east coordinate”; AS: OX=VAL(AS) 

9960 INPUT "Enter north coordinate”; A$: OY-VAL(A$S) 

9970 INPUT “Enter size of square”; A$: OS=VAL(A$) 

9980 INPUT “Enter multiple find scatter factor “: A$: SP=VAL(AS) 

9999 RETURN 


' site catalog file 


File 1. Site Information file 


Site Name 
Borden Number 


25 Char 
8 Char 


Catalogue Format 
Primary Datum east 
Primary Datum north 


File 2. Datum Description file 


1 Char c=compass, t=transit 
4 Numeric 


4 Numeric 


This file is in either of two formats and is identical to the Catalogue 


fields are not used. 


File 3. Catalogue file 


1. Compass Format 


Catalogue Number 
Artifact Number 
Number (how many) 
Measure 

Datum 1 ID 

Datum 1 Angle 
Datum 2 ID 

Datum 2 Angle 


4 Numeric 
3 Char 
3 Numeric 
4 Char 
2 Char 
3 Numeric 
2 Char 
3 Numeric 


file. 


Some 
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2. Transit Format 


Catalogue Number 4 Numeric 

Artifact Class 3 Char 

Number (how many) 3 Numeric 

Measure 4 Char 

Datum ID 2 Char 

Datum Degree 3 Numeric 

Datum Minutes 2 Numeric 

Datum Seconds 2 Numeric 

Distance 7 Numeric (two decimals) 


The Package 


Rather than bore most of the readers with a description of how the program works or 
drive the interested people crazy by trying to key the program into their computer, the 
London Chapter offers the following package for the nominal fee of ten dollars: 


1. One diskette containing the following material 

2. The source code for the program which can be executed by the BASIC interpreter. 

3. The compiled version of the program (if licensing is obtained). 

4. Test data which were used to create the figures in this article - to be used to verify the 
operation of the program. 

5. A detailed description of how the program works. This manuscript is several pages in 


length and describes each routine and flow of control through the program. It is a must if 
the code is to be modified as will be required if another printer is to be supported. 


The CSPMAP package can be obtained by writing Jim Keron at our London Chapter 
address: 
55 Centre Street 
London, Ontario 
N6J 1T4 


EPILOGUE TO A PROSECUTION 


William A. Fox 


The May 1985 issue of our newsletter included an article describing a recent 
precedent-setting Ontario Heritage Act prosecution of three Hamilton individuals for the 
looting of two Historic Neutral archaeological sites. On November 29 of last year, an appeal 
of the Parkin and Jackson sentences was heard in a Hamilton provincial court by His Honour 
Judge A. Zuraw. Some weeks prior to the hearing Mr. Richer had passed away. The Crown 


was again represented by M. Bader, Esq. and, once more, B. DeRubeis, Esq. was counsel! on 
behalf of the appellants. 


The following is a transcript of the reasons for judgement as expressed by His Honour 
Judge A. Zuraw: 


"Thank you. The appellants are before the Court today appealing sentences imposed on 


them by carrying out archaeological explorations without a license, contrary to Section 48 of 
the Ontario Heritage Act. 


10/ 


"The fines of seven thousand dollars which were imposed on each of George Parkin and 
Gordon Jackson are substantial and high in the range of the amount of monetary penalty that 
may be imposed upon an accused in breach of that particular section of the Act. The 
penalties are not of course at the higher range when one considers that a year in jail is also 
available, in determining the appropriate sentence and that the maximum that is available in 
the sentencing procedure is a year in jail plus a fine of ten thousand dollars. This sentence is 
a high one in the non-custodial range. It is not a high sentence in the scheme of penalties 
that are available with respect to the sentence. 


"In determining the fitness of the sentence and in determining whether or not all the 
factors were taken into consideration I have had access to the transcript of the trial as well 
as the transcript of the sentencing. It would not appear that the amount itself is a hardship 
for these appellants. They are in a position to pay. It may well be that the amount of time 
to pay will cause some difficulties but there is another action that can be taken by them if 
that becomes apparent so I must look at other factors. The accused did plead guilty. They 
do come before the Court with no criminal record and no record with respect to this type of 
offence and they are substantial citizens of the community and their sentence should reflect 
those facts. 


"This crime, if it is to be considered a crime, was one that took place over a series of 
dates. It is not a one-shot situation but rather a continuing scheme of archaeological looting 
of an Indian village site dating back over five hundred years. This burial site is considered to 
be of great importance to the Indian Nation which used it as its site. In due course the 
Native population is upset at the despoliation of their ancestors' remains and the sanctity of 
their place of rest and those facts must be taken into consideration; as well of course as the 
tremendous historical importance to the entire community. 


"I have canvassed with counsel the fitness of this sentence and I have looked through 
the materia! that was available to the sentencing judge. I am not in a position to say that 
there was any error in principle, nor am I in a position to say that the sentence was unfit. 
As I said, a substantial penalty was called for and a substantial penalty was imposed. 


"I would think that in the circumstances if more time is required to pay application 
might be made with respect to more time. 


"I do not see any reason in law or on the facts that would call for me to interfere with 
this sentence of the learned sentencing tribunal. 


"The appeal is dismissed." 


Upon hearing the above, counsel for the defence left the courtroom and walked briskly 
out of the building...to find a parking ticket on his car window. 


THE ELLIOTT VILLAGES (AfHe-2) - AN INTRODUCTION 


William A. Fox 


Those faithful newsletter readers among you may remember a short note in a fall KEWA 
issue some four years ago, reporting on the Elliott village rescue excavations in the Regional 
Municipality of Haldimand-Norfolk (see Figure 1). As indicated at that time (82-7,8:4), this 
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forty day field project (conducted between September 7 and October 16) could only have been 
accomplished through the efforts of no less than 214 vounteers - many of them London 
Chapter members! The public's 2142 man/hours of assistance helped expose some 2600 square 
meters of community pattern. A total of 11,891 post holes were mapped (final count), 448 
features were recorded and 223 sectioned, describing two virtually complete overlapping Glen 
Meyer villages. Only the northern portion of the Elliott site was threatened with destruction 
as a result of the owner's land levelling project; and, consequently, only roughly a third of the 
site area was rescued, with the remainder awaiting future investigation (see Figure 2). 
Subsequently, over the winters of 1982/83 and 1983/84, Chapter members during Thursday nite 
lab sessions washed the many thousand artifacts and sorted the numerous floats derived from 
1457 litres of fill from 39 features. The enormous job of artifact sorting, curation and 


cataloguing has been undertaken sporadically over the last two winters of lab nites, but the 
end is in sight! 


Time, manpower and funding constraints combined to dictate the field techniques 
described next. Following mechanized and shovel topsoil stripping, few post holes were 
sectioned and feature selection for excavation was dictated on the basis of perceived 
information potential. All 31 "Type 1" (Fox 1976: 182) pit features were excavated, as such 
"storage pits" are large and often contain layers of refuse rich in both artifacts and ecofacts. 
The remaining small pit features excavated were selected on the basis of exposed surface 
indications and, in the eleventh hour, trowel probing. A large ground stone adze blade was 
recovered from a small sterile looking "Type 2" pit feature as a result of the latter activity. 


The standard Ministry 
feature excavation procedures 
were utilized. Half of the fill 
was excavated along a central 
‘section line aligned either 
magnetic N-S or E-W, as deter- 
mined by a surficial assessment 
of information potential = -- 
generally cross-cutting the zones 
of greatest plan view complex- 
ity. All fills, except those 
bagged for flotation, were 
passed through 1/4" (6mm) 
screen. The second half of each 
feature was excavated by those 
cultural layers defined in the 
profile. Fills retained for 
flotation were selected on the 
basis of evident high densities of 
carbonized plant and/or small 
faunal bone remains. Finally, a 
pocket of sub-plough zone sheet 
midden discovered in the south 
central sector of the excavation 
area was shovelled and 1/4" 
screened. 


Preliminary analysis has 
defined two villages (II and III) 
consisting of several phases 


Figure 1: Location of the Elliott Site 
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Figure 2: The Elliott Site 
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Village Il 


Figure 3: Sequential Villages II and III 


each, and a portion of a third village (I) extending to the south (see Figures 3 and 4). As 
illustrated in the figures, a small northern segment of both northern villages has been lost due 
to natural erosion. Completion of the artifact sorting will allow refinement and possibly 
revision of this interpretation based on inter-feature ceramic rim sherd and lithic tool 
cross-mends. 


Fecteau (1983) has completed a partial floral analysis, noting the cultigens corn, squash 
and tobacco. Also identified from the Elliott features are the following wild food and 
medicinal plants: raspberry, strawberry, wild plum, sumac, goosefoot, purslane, spikenard and 
butternut. Likewise, Prevec (1985) has undertaken a preliminary faunal analysis, identifying 
the following major species - deer, grey squirrel, raccoon, beaver, brown bulhead, yellow 
perch, rock bass, pumkinseed, burbot, passenger pigeon, greater scaup, painted turtle and 
freshwater clam. Fish recoveries indicate that net procurement was important, probably often 
taking place near the mouth of Big Creek in Long Point Bay. Limited eel remains indicate 
some contact with groups in the Lake Ontario basin to the east. Minor amounts of certain 
bird species such as hawk, eagle and blue jay may reflect localized ritual activities in the 
village, and recurring faunal associations in stratified pit refuse deposits may provide solid 
evidence for seasonally specific procurement activities. 


Additional artifact evidence of ritual activity im the Elliott villages includes red ochre 
paint palettes, red ochre painted vessels, a unique V-shaped antler comb, and the distribution 
of ceramic pipe and stone gorget fragments (Fox 1984). A single Type 1 pit adjacent to a 
palisade line produced the only human remains discovered on the site. Their context and 
associated materials suggest that these bones were discarded following a ceremony where 
secondary bundles were prepared for burial elsewhere - probably at a spring fishing camp near 
Long Point Bay (Fox 1976: 172). An adult and three children are represented among the 
human elements recovered (Spence 1984). 
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Figure 4: Community Patterns 
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A series of four radiocarbon dates spanning the period from A.D. 950 to 1190 (Fox 
1983:3) or 1050 to 1205 A.D. calibrated (Timmins 1984: 41) have been obtained from features 
representing Villages II and III. An additional four dates are planned, in an effort to 
document the temporal interval between occupations. Overall, the community patterns and 
artifact assemblage appear most similar to M. Wright's (1976,1977) initial village occupation 
on the Reid site, situated 31 km due south of Elliott, near Long Point Bay. Comparative 
community pattern data for the contemporary Van Besien village 6.5 km northwest of Elliott 
on the Otter Creek drainage are limited; however, the artifact assemblage displays striking 
similarites (Noble 1975). 


All the foregoing considerations and more wil! be addressed in forthcoming issues of 
KEWA, as house by house, the ongoing analysis will be presented. Finally, the preliminary 
information derived from the Elliott villages has been made available to the local! public 
through the Ministry production of a display last October for the Teeterville Museum. A 
series of three cases document the excavation project (highlighting local volunteers) and the 
village community patterns, artifact recoveries, and the  villagers' former subsistence 
activities. 
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